home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8705.d64 / mps 802 creater (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  45 lines
  1. 10 OPEN3,8,3,"MPS-802,U,W"
  2. 20 READN:IFN>-1THENPRINT#3,CHR$(N);:GOTO20
  3. 30 CLOSE3
  4. 40 OPEN1,8,15:OPEN2,8,2,"#"
  5. 50 PRINT#1,"M-R"CHR$(9)CHR$(0):GET#1,A$:DS=ASC(A$):T=1:S=0
  6. 60 PRINT#1,"B-A 0";T;S:INPUT#1,A,B$,TT,SS:IFA=0THEN90
  7. 70 T=TT:S=SS:IFT=18THENT=19:S=0
  8. 80 GOTO60
  9. 90 PRINT#1,"B-P 2 0":FORI=0TO255:READN:PRINT#2,CHR$(N);:NEXT
  10. 100 PRINT#1,"U2 2 0";T;S:PRINT#1,"U1 2 0 18";DS
  11. 110 N$="":PRINT#1,"B-P 2";P+5:FORI=1TO7:GET#2,A$:N$=N$+A$:NEXT
  12. 120 IFN$<>"MPS-802"THENP=P+32:GOTO110
  13. 130 PRINT#1,"B-P 2";P+2:PRINT#2,CHR$(195);
  14. 140 PRINT#1,"B-P 2";P+21:PRINT#2,CHR$(T);CHR$(S);
  15. 150 FORI=1TO8:READN:PRINT#2,CHR$(N);:NEXT
  16. 160 PRINT#1,"U2 2 0 18";DS:CLOSE2:CLOSE1
  17. 170 DATA96,234,234,76,25,121,76,70,121,76,178,121,76,212,121,0,0,0,0,0,0,0
  18. 180 DATA0,0,0,169,4,32,176,194,32,92,194,169,126,160,6,32,46,122,162,126,32
  19. 190 DATA201,255,32,183,255,141,23,121,208,5,169,21,32,202,241,169,126,32,195
  20. 200 DATA255,32,95,194,174,23,121,96,169,4,32,176,194,32,92,194,169,124,160
  21. 210 DATA0,32,46,122,169,125,160,5,32,46,122,162,124,32,201,255,169,141,32,202
  22. 220 DATA241,165,3,133,9,165,2,133,8,169,0,141,24,121,32,219,121,144,39,32,242
  23. 230 DATA121,32,5,122,174,24,121,240,8,169,32,32,202,241,202,208,250,169,254
  24. 240 DATA32,202,241,169,141,32,202,241,32,29,122,174,24,121,224,80,208,212,169
  25. 250 DATA13,32,202,241,169,125,32,195,255,169,124,32,195,255,32,95,194,96,169
  26. 260 DATA4,32,176,194,32,92,194,169,124,160,0,32,46,122,162,124,32,201,255,169
  27. 270 DATA12,32,202,241,169,124,32,195,255,32,95,194,96,169,0,162,80,160,90,96
  28. 280 DATA160,7,177,8,208,15,136,16,249,32,29,122,174,24,121,224,80,208,237,24
  29. 290 DATA96,56,96,120,160,7,177,8,162,7,106,126,15,121,202,16,249,136,16,242
  30. 300 DATA88,96,162,125,32,201,255,162,0,189,15,121,32,202,241,232,224,8,208
  31. 310 DATA245,162,124,32,201,255,96,24,165,8,105,8,133,8,165,9,105,0,133,9,238
  32. 320 DATA24,121,96,162,4,32,186,255,169,0,32,189,255,76,192,255,-1
  33. 330 DATA0,255,3,21,191,255,255,255,128,0,1,128,63,241,128,64,97,128,87,97,128
  34. 340 DATA64,97,128,66,97,128,128,193,131,8,253,133,0,205,137,255,221,144,0,61
  35. 350 DATA191,255,253,160,0,121,167,243,113,160,0,97,191,255,193,128,0,1,128
  36. 360 DATA0,1,128,0,1,255,255,255,131,9,0,0,121,59,122,0,0,80,114,105,110,116
  37. 370 DATA100,114,105,118,101,114,32,86,49,46,50,0,0,0,0,80,101,116,101,114,32
  38. 380 DATA66,114,101,109,101,114,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  39. 390 DATA0,0,0,0,0,0,32,176,194,32,161,194,224,13,240,52,169,2,141,141,132,138
  40. 400 DATA208,41,169,130,133,3,169,70,111,114,32,67,111,109,109,111,100,111,114
  41. 410 DATA101,32,77,80,83,45,56,48,50,46,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  42. 420 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,65,2,0,0,181
  43. 430 DATA132,1,0,85,65,3,0,0,0,169,132,2,227,33,141,132,1,1,0,0,169,4,208
  44. 440 DATA0,9,86,12,10,14,0,3
  45.